home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / lnx.src < prev    next >
Text File  |  1991-02-21  |  714b  |  26 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ LNX, Variable Precision decimal expansion of e.
  3. @ by RJ Schwartz
  4. \<< 
  5.        200 \-> X Y
  6.   \<<
  7.        DO Y X 2 * LASTARG SWAP DROP \pi \->NUM * LOG - Y LOG - LASTARG
  8.           SWAP DROP 1 EXP LOG - 2 * / DUP 'Y' STO - ABS UNTIL 1 \<= END
  9.           Y IP 1 + X
  10.   \>>
  11.  
  12.        10 / DUP 1 \->LIST 0 CON DUP 0 1E10 \-> P N E F R Z
  13.  
  14.   \<<
  15.        'F' 1 Z PUT 2 P FOR K 0 'R' STO 1 N FOR I 'F' I DUP2 DUP2 GET R +
  16.        PUT GET DUP K / IP DUP 'F' I ROT PUT K * - Z * IP 'R' STO NEXT
  17.        1 N FOR I 'E' I DUP2 DUP2 GET 'F' I GET + PUT GET 
  18.     
  19.        IF Z \>= THEN 'E' I DUP2 DUP2 GET Z - PUT 1 - DUP2 GET 1 + PUT END
  20.  
  21.        NEXT NEXT E
  22.   \>>
  23.  
  24.        440 .5 BEEP
  25. \>>
  26.